home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
mmscpt12.arc
/
F.ASP
< prev
next >
Wrap
Text File
|
1991-06-08
|
1KB
|
74 lines
ASSIGN S0 "MEOW"
ASSIGN S2 "Z"
ASSIGN S3 "DSZ port 1 sz"
ASSIGN S4 "DSZ port 1 rz"
start3:
STRFMT S5 "%s.UFI" S0
ISFILE S5
IF SUCCESS
STRFMT S6 "U %s" S2
ASSIGN S8 "**B01"
GOSUB xfr_file
ENDIF
STRFMT S5 "%s.DFI" S0
ISFILE S5
IF SUCCESS
STRCPY S3 S4
STRFMT S6 "D %s" S2
ASSIGN S8 "**B00"
GOSUB xfr_file
ENDIF
PAUSE 1
TRANSMIT "G^M"
WAITFOR "Thanks for calling," FOREVER
PAUSE 1
DATE S7
TIME S8 0
STRFMT S9 "ECHO %s %s - OFF LINE >> %s.TXT" S7 S8 S0
DOS S9
PAUSE 1
HANGUP
PAUSE 1
QUIT
xfr_file:
FOPENI S5 TEXT
xfr_next:
FGETS S7
IF NOT EOF
STRFMT S1 "%s %s^M" S6 S7
GOSUB describe
TRANSMIT S1
WAITFOR S8
PAUSE 1
STRFMT S9 "%s %s" S3 S7
DOS S9
PAUSE 1
WAITFOR "Main Board Command?" FOREVER
PAUSE 1
GOTO xfr_next
ENDIF
GOSUB clos_fil
RETURN
describe:
STRCMP S8 "**B01"
IF SUCCESS
TRANSMIT S1
WAITFOR "?"
PAUSE 1
FGETS S9
STRFMT S1 "%s^M^M" S9
ENDIF
RETURN
clos_fil:
FCLOSEI
PAUSE 1
STRFMT S9 "DEL %s" S5
DOS S9
PAUSE 1
RETURN